data <- read.csv("文件夹//1.4-Data.csv")    #读取数据，并赋值给data变量
data                                        #查看data

install.packages("plyr")                    #安装plyr包，用于分组计算
library(plyr)                               #加载plyr包

ddply(data, "Treatment", summarize, mean = mean(TB), sd = sd(TB)) #分组计算平均值和标准差

out <- ddply(data, "Treatment", summarize, mean = mean(TB), sd = sd(TB)) #分组计算平均值和标准差，并赋值给out变量

write.csv(out, "文件夹//1.4-out.csv")       #将out变量写入/输出到csv文件
